home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / MISC / ADA_TUT3.ZIP / FIB.ANS (.png) < prev    next >
ANSi Art File  |  1994-08-22  |  261 b   |  640x160  |  1-bit (2 colors)
   ocr: Our solution to Uutside Assignment 4 (in FIB.ANS): separate (Fibtest) function Fib(N : in Positive) return Positive is Answer : Positive := 1; begin if N > 2 then Answer := Fib(N - 1) + Fib(N - 2); end if; return Answer; end Fib;